COMPUTER ART : UNE PARTITION POUR LE PEINTRE 
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P.L. NEUMANN 


INTRODUCTION 


wee ee SEE as t up ee EEE a = jant VEN taa ee SED ma, ME ee 


De l'idée à "l'expression" d'une oeuvre par ordinateur 

il y a un programme. Si ce programme n'est qu'un exécu- 
tant la création et donc "l'expression" de l'artiste ne 
S'exerceront qu'au niveau du programme. Pour qu'il y ait 
"expression" dans le résultat il faudrait que le program- 
me soit l'artiste ou que l'artiste travaille avec son 


programme. 


C'est dans cette derniére perspective que se situe le 
programme "INTERPRETATION", 


Ce programme ne réalise rien, mais propose un programme 


pour l'artiste : une partition à interpréter. 
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Ce programme a été écrit en CONNIVER - LISP en Mars 1974. 


Comment fonctionne ce programme ? 
On lui donne une idee de base ou contexte de la forme : 

Den 

C devant A ) 

c'est à dire un couple d'objets non définis, liés par une 
relation x quelconque telle qu'il existe son contraire x. 
A partir de cette ébauche le programme va développer une 
partition c'est à dire un certain nombre de propositions 
telles que (A x B)-A, Bet x éléments du contexte. 
Chaque étape de cette partition correspondra donc au 
développement d'un objet du contexte par rapport à un autre 
objet de ce même contexte, le choix d'un tel ou tel objet et. 
d'une relation ne dépendant que de l'état courant du contexte 
à un instant donné. | 
En effet, chaque proposition du programme devra être cohérente 
par rapport à l'idée de base : l'union de la proposition ( p ) 
et du contexte ( c ) devra être égale au contexte ( c ) lui - 
même, puis ( p ) sera ajouté à ( c ), produisant ainsi un 
nouveau contexte permettant le développement de nouvelles 
relations. 
Le processus se déroulera ainsi jusqu'à ce que l'idée de base 
n'offre plus aucune possibilité de développement. 


Le second travail va maintenant consister à interpréter la 
partition ainsi construite : interpréter voulant dire dans le 
cas présent matérialiser les objets et les relations de la 
partition en vue d'une exécution en pas à pas, respectant 
l'ordre chronologique de cette partition. 

Autrement dit, il s'agit en fait de concrétiser les éléments 
d'un algoritme produit par un programme et dont on aura 
auparavant précisé l'idée de base, puis ]'exécuter à la main 
ou par programme. | 


LE PROGRAMME 


“I - Développement de l'idée de base ou contexte. 


a ) L'idée de base 


Prenons comme exemple la liste des propositions suivantes 
correspondant pour le peintre à une esquisse de son dessin 3 
| | (A à gauche de B ) 
( A ä gauche de C ) 
( B sur C ) 
et la liste de toutes les relations employees et de leurs 
inversess | 
( Setq SIT ' ( à gauche de à droite de sur sous )) 
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` Le programme va commencer par analyser ce contexte en y 
ajoutant les informations suivantes : 


1 - Hypothèse de Travail: 


\ ne sont définis par relation que les objets A et B 
en effet dans une relation du type (A = ©) j'ai 
supposé que l'objet B était l'objet " subissant " la 
relation x et que donc, seul l'objet ew était défini." 


2 — Etat des Objets mis en relation: 
| / & droite de A ) il doit y avoir quelquechose 
/ sous B ) " "o n 
C n'est pas défini. 


? 


3 = Idée ou Pattern à respecter: | 
le graphe A ou la liste 


N PA © ((aB) (ac) (BC )) 


4 - Une liste comportant tous les objets et leur relation qui permettra 
de déterminer les objets à développer. Cette liste ne fera pas 
partie du contexte 3 elle représentera l'état de chaque objet. 


A est à gauche ) de quelquechose 
| B est à droite a E 


( Best sar) no MN 
} C est sur) © " " 
C est à droite ) "  » 


Après analyse le donkerte initial sera représenté par la 
listes 
A à gauche de B) 
À à gauche de C 
sur C ) 
Te de A ) ( / sous B ) 


(ac) (BC) ) 


B 
/ à 
AB 


( 


b } Développement du contexte 


Gette tŠehe va consister à produire une ou plusieurs propositions 
du type Cx x 2) respectant le pattern du contexte.Pour 
cela, le programme va se poser un certain. nombre de questions, 


1 = Quel objet développer et vers quel autre ? 


Pour cela on ira consulter la liste de l'etat des objets 
(mentionnée en 4- du a) ).Les objets a développer seront 
les objets qui auront le mõme état. En suivant notre exemple, 


ces objets seront B et C puisqu'ils possédent le même état: 
est à droite de , 


Joo 
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Par ailleurs on s'assurera que la proposition (C B) 
n'appartient pas dejä au pattern du contexte. Dans le cas 
contraire on inverse cette proposition qui deviendra 

( B C ). En fait, je pense à un peintre qui aurait à 
travailler des masses égales' pour les intégrer au reste 
de son dessin. Si aucun objet n'a le même état ou que 
toutes les propositions appartiennent déjà au pattern, 

on prendra alors des objets de la dernière proposition du 
contexte 3 le peintre continue à développer son dessin. 

- Toute cette premiere partie n'a pas été programmée par 
manque de place en mémoire, mais elle n'offre aucune 
difficulté =- 


2 = Quelie relation appliquer à ces deux objets. 


Cette relation sera déterminée par le pattern du contexte : 
Un peintre construit sa toile en appliquant certaines touches 
qui doivent s'harmoniser avec le reste de son dessin. le 
programme en fait autant: En effet il devra trouver la 
relstion x entre deux objets { C et B dans notre exemple ) 
telle que : 

- À partir de Cx on retrouve ce qui est lié à C 

dans le pattern. 


- À partir de Bx ( x inverse de x ) on retrouve 
ce qui est lié à B dans le pattern. 


C'est à dire que si un objet & est lié à l'élément du 
pattern Y)alors, à la proposition X x devra correspondre 
un (/>x >) dans le contexte. 


Ex s Cx —rien ( et strictement rien ) 
Bx —>( B C) 


Ce qui est lié aux deux objets OX et OY dans le pattern 
sera fourni par la fonction TRAJET . 


CDE TRAJET (C OX OY ;; OZ OW ) 
CFOR-EACH C !0Z !OW ) 
CCOND 
CCEQ OZ OX) 
CSETQ R-0X 
CCONSCLIST OZ OW) R-0X))) 
CCEQ OZ OY) 
CSETQ R-OY 
CCONSCLIST OZ OW) R-OY))) 
22) 


a 


http://www.artinfo-musinfo.org Artinfo Musinfo # 20, 1974, page 21 / 31 


Puis on essayera toutes les relations possibles jusgu'ä 
ce qu'il y en ait une qui convienne. 


(DE ESSAI C OX OY ;; P PREDIC ) 
(SETO AJOUT (SETO R-0X CSETQ R-OY NIL))) 
(TRAJET OX OY) 
(PRINT =C TRAJET ,R-OX ,R-OY )) 
CSETQ PREDIC SIT) 
(WHILE PREDIC 
CSETQ P CNEXTL PREDIC)) 
(AND COR (NONSIT OX P R-0X) 
CIS OX P R-0X)) 
AJOUT | 
CASSUMING @AJOUT | 
(OR CNONSIT OY CNON P) R-0Y) 
| (IS OY (NON P) R-0Y))) 
(NULL AJOUT) 
(PRINT (ADD 'C DO GOX GP @OY ))) 


2) 
CPRINT '//////)) 


Pour chaque essai le programme supposera que la proposition 
(C x B ) est la bonne et pour cette raison il créera un 
contexte hypothétique ( ASSUMING ...... ) composé du contexte 
courant plus l'état de l'objet défini par supposition 
c'est à dire ( / x C) : le peintre ajoute un élément à 

son dessin puis regarde s'il n'en détruit pas l'harmonie. 


(DE REPONS € OX P ) 
CSETQ AJOUT 
(COND 
(AJOUT NIL) 
CCLIST '/ CNON P) 0X)) ) D) 


ramène la liste (/ x X). 


re 
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(DE NONSIT (C OX P ROX ;; OZ ) 
(OR ROX 
(PRESENT 'C / GP !02 )) 


(REPONS 0X P))) 


Si l'objet OX n'est lié à aucun élément du pattern 
c'est à dire Cx --> rien. 


(DE IS C OX R ROX ;; OZ HYP ) 
CCOND 
CROX CFOR-EACH C / AR !0Z ) 
CSETQ HYP CCONS =C @OX ,0Z ) HYP))) 
CAND CRESPEC ROX HYP). 
CREPONS OX R))))) 


Essai d'une relation. 


(DE RESPEC € RO HYP ) 
CCOND 
CCNULL RO) 'OK) 
CCMEMBER (NEXTL RO) HYP) 
CRESPEC RO HYP)))) 


Vérifie si la relation proposée respecte le pattern. 
Dans notre exemple on trouvera : 
(C sur B) en effet 
- contexte hypothétique = contexte courant + 
. ( / sous C) 
- C sur -erien 


- B sous ->( B C) 


seifas 
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puis paralellement ( plusieurs relations peuvent 
satisfaire la möme proposition 


( C à gauche de B) 


Le contexte courant sera alors modifie en ajoutant 
définitevement : 


= les propositions (C sur B) 
( C à gauche de B) 


- l'état des objets mis en relation s'il 
ne s'y trouve pas déjà : 


( / sous C) 
| ( / à droite de C) 
- le nouvel élément du pattern : 
(cC B) 
Tout ceci sera le travail de la fonction REMPLACE . 


(DE REMPLACE (C ;; OX R OY ) 
CCOND 
CCPRESENT 'C DO tox !X !0Y )) 
CFOR-EACH € DO !0X IR !0Y ) 
CREMOVE 'C TRY ,0X VERS ,0Y )) 
(REMOVE 'C DO ,0X ,R ,0Y )) 
CAND CABSENT 'C / @CNON R) ,0X )) 
(ADD 'C / @CNON R) ,0X ))) 
CAND CABSENT 'C ,0X ,0Y )) 
CADD 'C ,0X ,0Y )))) 
"OK ))) 


La liste de l'état des objets sera également modifiée 
en y ajoutant de nouveaux états : 


Ex: ( C est sur ) 
( C est à gauche ) 
( B est sous ) 
( B est à gauche ) 


A partir de ce nouveau contexte on pourra développer 
de nouvelles propositions. 


Dans le cas ou aucune relation n'aurait été trouvée 
le programme précisera les éléments du pattern liés 
aux objets de la proposition, par exemple : 


Si aucune relaticn n'est trouvée pour la proposition 

(A se @) celle ci sera alors insérée au contexte 
courant sous la forme ( TRY e vers & ) puis sachant 
que est lié à (X X) et que # est lié A(S ¥4) et CH Yo) 
on développera chaque élément de la liste : 


EXPLOR = CC ¥) CO 44) CH V:)) 


ee: 
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(DE SEARCH C EX ) 
(PROG C) 
B (OR EXPLOR (RETURN)) 

(SETO EX CNEXTL EXPLOR)) 

(COND 
CCABSENT 'C TRY @CCAR EX) VERS @CCADR EX) )) 
CPRINT (LIST "EXPLORE CCAR EX) CCADR EX))) 
CESSAI CCAR EX) CCADR EX))) 
CCGO B))) 

CAND (REMPLACE) 
(END) 
(RETURN 'OK)) 

(GO B))) 


Ainsi (A x %) devient une nouvelle proposition et le 
programme devra trouver la relation x telle que 


ol x ——» ( élément du pattern ) 
= ——»( élément du pattern ) 


Si une relation est trouvée, alors le contexte sera 
modifié, puis on essayera à nouveau le proposition (A x 2) 


(DE END C OX OY D 
(PROG C) 
A  CCOND 


CCABSENT 'C TRY !0X VERS IOY )) 
(RETURN 'OK)) 
CT CFOR-EACH C TRY !0X VERS !0Y D 
CPRINT CURRENT) 
CESSAI OX OY)) 
COR CREMPLACE) (RETURN)) 
(PRINT '------ ) 
(GO A))))) 


Cette fonction ira chercher toutes les propositions du 
type ( TRY «< vers & ) et essayera de les développer. 


ae 


http://www.artinfo-musinfo.org Artinfo Musinfo # 20, 1974, page 25 / 31 


En conclusion, le programme ne s'arrêtera que lorsque 
tous les objets auront les mêmes états ou lorsgu'il 
n'y aura plus aucune possibilite de developpement. 

On obtiendra alors une partition . 


D'autre part, en raison de l'absence de la fonction 
(décrite en 1 - du b ) page 2 ) permettant le 
lancement du programme, on devra preciser pour cela 
le ou les couples d'objets à développer en les inserant 
au contexte initial sous la forme ( TRY X vers % ). 


(DE DEVELOPPE € OX OY ;; LPOS ) 
CCOND 
CCEND) NEW) 
CT (SETO LPOS CFETCH 'C TRY !0X VERS !0Y ))) 
CESCAPE EXIT 
CWHILE LPOS 

(TRY-NEXT LPOS) 
(PRINT =C EXPLORER ,0X VERS ,0Y D) 
(SETQ R-0X CSETQ R-OY NIL)) 
(TRAJET OX OY) 
(SETO EXPLOR CNCONC R-0X R-OY)) 
CAND (SEARCH CEXIT 'NEW))))))) 


err 
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c ) La partition 


Cette partition sera composee d'un certain nombre de 
propositions réparties suivant un ordre bien précis 
correspondant à l'ordre des possibilités de développement. 
A partir de l'idée de base donnée en exemple on obtiendra 
la partition suivante : 


C A GAUCHE B ) u 

C A GAUCHE C D idée de base 
C B SUR C ) 

C C SUR B) 

C C GAUCHE B ) 

C C SOUS B ) 

CA SOUS B ) 

C B SUR À ) 

C B SOUS A ) 

C B SOUSA ) u 

(C A GAUCHE C D idée de base 
C C SUR B D 

C B DROITE C ) 

C C SUR A ) 

C C GAUCHE A ) 

( A SOUS C D 

C A DROITE C ) 

C C GAUCHE A ) u 

C B DROITE C ) idée de base 
C A SOUS B ) 

( A GAUCHE b ) 

C B DROITE A ) 

C A GAUCHE C ) 

C C DRUITE A ) 

C B DROITE A ) 


qu'il faudra INTERPRETER cece 
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P, Le Neumann is A 


SULU IL 


ary Taq... 
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